************************************************************************************************
*** How do Gender Stereotypes about Leadership Positions Change in the Face of a Crisis?   	 ***
***      	   																 ***
*** 2024-07-31                        												   		 ***
************************************************************************************************

* data 
use Itzkovitch-Malka R&P _replication dataset.dta, clear

****************************************************************************************
*TABLE 1
****************************************************************************************

ttest secman_uni_r, by(treatmentsec)
ttest econman_uni_r, by(treatmentecon)
ttest eduman_uni, by(treatmentedu)

****************************************************************************************
*TABLE A3
****************************************************************************************

ologit secman_uni_r i.treatmentsec##i.baseline_stereo
ologit secman_uni_r i.treatmentsec##i.baseline_stereo female leftright age education religiousityscale
ologit econman_uni_r i.treatmentecon##i.baseline_stereo
ologit econman_uni_r i.treatmentecon##i.baseline_stereo female leftright age education religiousityscale 
ologit eduman_uni i.treatmentedu##i.baseline_stereo
ologit eduman_uni i.treatmentedu##i.baseline_stereo female leftright age education religiousityscale

****************************************************************************************
*FIGURE1
****************************************************************************************
ologit secman_uni_r i.treatmentsec##i.baseline_stereo

	margins if  baseline_stereo==1, at(treatmentsec=(0 1))  level(90)
  marginsplot, recast(scatter) plotopts(msiz(vsmall) mc(gs4)) ciopts(lw(medthick)) ///
	xscale(range(0 1)) xsc(r(-.99 1.7))  xlabel(0 "control" 1 "crisis", labsize(small) ) xtitle(" ") scheme(stcolor) ///
	aspectratio(2) ytitle("Pr(suitability for Minister of Defense)") ylabel(0(.2)1) title("baseline: prefer a man") legend (off) name(preferaman_secman, replace)
margins if  baseline_stereo==2, at(treatmentsec=(0 1))  level(90)
  marginsplot, recast(scatter) plotopts(msiz(vsmall) mc(gs4)) ciopts(lw(medthick)) ///
	xscale(range(0 1)) xsc(r(-.99 1.7)) xlabel(0 "control" 1 "crisis", labsize(small) ) xtitle(" ") scheme(stcolor) ///
	aspectratio(2) yscale(range(0 1)) ylabel(0(.2)1) ytitle("Pr(suitability for Minister of Defense)") title("baseline: no diff") legend (off) name(nodiff_secman, replace)
	margins if  baseline_stereo==3, at(treatmentsec=(0 1))  level(90)
  marginsplot, recast(scatter) plotopts(msiz(vsmall) mc(gs4)) ciopts(lw(medthick)) ///
	xscale(range(0 1)) xsc(r(-.99 1.7))  xlabel(0 "control" 1 "crisis", labsize(small) ) xtitle(" ") scheme(stcolor) ///
	aspectratio(2) yscale(range(0 1)) ylabel(0(.2)1) ytitle("Pr(suitability for Minister of Defense)") title("baseline: prefer a woman") legend(off) name(preferawoman_secman, replace)


****************************************************************************************
*FIGURE 2
****************************************************************************************

ologit eduman_uni_r i.treatmentedu##i.baseline_stereo


	margins if  baseline_stereo==1, at(treatmentedu=(0 1))  level(90)
  marginsplot, recast(scatter) plotopts(msiz(vsmall) mc(gs4)) ciopts(lw(medthick))  ///
	xscale(range(0 1)) xsc(r(-.99 1.7)) xlabel(0 "control" 1 "crisis", labsize(small) ) xtitle(" ") scheme(stcolor) ///
	aspectratio(2) ytitle("Pr(suitability for Minister of Education)")  ylabel(0(.2)1) title("baseline: prefer a man") legend(off) name(preferaman_eduman, replace)
margins if  baseline_stereo==2, at(treatmentedu=(0 1))  level(90)
  marginsplot, recast(scatter) plotopts(msiz(vsmall) mc(gs4)) ciopts(lw(medthick)) ///
	xscale(range(0 1)) xsc(r(-.99 1.7)) xlabel(0 "control" 1 "crisis", labsize(small) ) xtitle(" ") scheme(stcolor) ///
	aspectratio(2) yscale(range(0 1)) ytitle("Pr(suitability for Minister of Education)") title("baseline: no diff") legend(off) name(nodiff_eduman, replace)
	margins if  baseline_stereo==3, at(treatmentedu=(0 1))  level(90)
  marginsplot, recast(scatter) plotopts(msiz(vsmall) mc(gs4)) ciopts(lw(medthick)) ///
	xscale(range(0 1)) xsc(r(-.99 1.7)) xlabel(0 "control" 1 "crisis", labsize(small) ) xtitle(" ") scheme(stcolor) ///
	aspectratio(2) yscale(range(0 1)) ytitle("Pr(suitability for Minister of Education)") title("baseline: prefer a woman") legend(off) name(preferawoman_eduman, replace)




****************************************************************************************
*FIGURE A1
****************************************************************************************

ologit econman_uni_r i.treatmentecon##i.baseline_stereo


	margins if  baseline_stereo==1, at(treatmentecon=(0 1))  level(90)
  marginsplot, recast(scatter) plotopts(msiz(vsmall) mc(gs4)) ciopts(lw(medthick)) ///
	xscale(range(0 1)) xsc(r(-.99 1.7))  xlabel(0 "control" 1 "crisis", labsize(small) ) xtitle(" ") scheme(stcolor) ///
	aspectratio(2) ytitle("Pr(suitability for Minister of Finance)")  ylabel(0(.2)1) title("baseline: prefer a man") legend(off) name(preferaman_econman, replace)
margins if  baseline_stereo==2, at(treatmentecon=(0 1))  level(90)
  marginsplot, recast(scatter) plotopts(msiz(vsmall) mc(gs4)) ciopts(lw(medthick)) ///
	xscale(range(0 1)) xsc(r(-.99 1.7))  xlabel(0 "control" 1 "crisis", labsize(small) ) xtitle(" ") scheme(stcolor) ///
	aspectratio(2) yscale(range(0 1)) ytitle("Pr(suitability for Minister of Finance)")  ylabel(0(.2)1) title("baseline: no diff") legend(off) name(nodiff_econman, replace)
	margins if  baseline_stereo==3, at(treatmentecon=(0 1))  level(90) 
  marginsplot, recast(scatter) plotopts(msiz(vsmall) mc(gs4)) ciopts(lw(medthick)) ///
	xscale(range(0 1)) xsc(r(-.99 1.7))  xlabel(0 "control" 1 "crisis", labsize(small) ) xtitle(" ") scheme(stcolor) ///
	aspectratio(2) yscale(range(0 1)) ytitle("Pr(suitability for Minister of Finance)")  ylabel(0(.2)1) title("baseline: prefer a woman") legend(off) name(preferawoman_econman, replace)












